***************************************
**** Table A3: Reactions to Picture	****
***************************************
	
	

use "$dir/Data/analysis_main.dta", clear


eststo clear
eststo: reghdfe pic1rsn_noworry_v3 cash  if pid1==1 , vce(robust) a(roundgroup)
	qui summarize pic1rsn_noworry_v3 if e(sample)==1 & cash==0
	qui estadd scalar cont = r(mean)
	qui estadd local blcont "N"
eststo: reghdfe pic1rsn_noworry_v3 cash loan_moneylender numloans_worry bs_labor_30_nm bs_labor_30_miss i.future_fin_worry_nm if pid1==1 , vce(robust) a(roundgroup)
	qui summarize pic1rsn_noworry_v3 if e(sample)==1 & cash==0
	qui estadd scalar cont = r(mean)
	qui estadd local blcont "Y"
eststo: reghdfe pic1rsn_nopoverty_v2 cash  if pid1==1 , vce(robust) a(roundgroup)
	qui summarize pic1rsn_nopoverty_v2 if e(sample)==1 & cash==0
	qui estadd scalar cont = r(mean)
	qui estadd local blcont "N"
eststo: reghdfe pic1rsn_nopoverty_v2 cash loan_moneylender numloans_worry bs_labor_30_nm bs_labor_30_miss i.future_fin_worry_nm if pid1==1 , vce(robust) a(roundgroup)
	qui summarize pic1rsn_nopoverty_v2 if e(sample)==1 & cash==0
	qui estadd scalar cont = r(mean)
	qui estadd local blcont "Y"

#delimit ;
local tablerow cash;

esttab using "$oa/$t/Table_A3.tex", 
    b(3) se booktabs star(* .1 ** .05 *** .01) nonotes nomtitles 
    replace label style(tex) gaps keep(`tablerow') order(`tablerow') 
    stats(cont blcont N, labels("Control group mean" "Baseline worries" "N: workers") fmt(%9.2fc %20s %9.0fc))    
	prehead("{\def\sym#1{\ifmmode^{#1}\else\(^{#1}\)\fi} 
	\begin{tabular}     
	{@{\extracolsep{4pt}}l*{10}{>{\centering\arraybackslash}m{3.8cm}}@{}}      \toprule    
	&\multicolumn{2}{c}{\textbf{Reasons other than worries}}   &\multicolumn{2}{c}{\textbf{Reasons other than worries or poverty}}   \bigstrut       \\ 
	\cline{2-3} \cline{4-5} \addlinespace 	
	") ;
		
#delimit cr		
